home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / cnflib9.dir < prev    next >
File List  |  1994-01-04  |  2KB  |  161 lines
  1. %%HP: T(3)A(D)F(.);
  2. DIR
  3.   SETUP
  4.     \<< CLLCD -13 CF
  5. "Processing:
  6. Workspace"
  7. 1 DISP VARS '\Gt' DUP
  8. CRDIR EVAL LIST\-> 2
  9. SWAP
  10.       START DUP
  11. \->STR 2 DISP DUP RCL
  12.         IF DUP TYPE
  13. 2 ==
  14.         THEN
  15.           IF DUP
  16. NUM 40 ==
  17.           THEN \->RPL
  18.           END
  19.         END SWAP
  20. STO
  21.       NEXT DROP
  22. "Library" 2 DISP
  23. D\->LIB
  24. "Cleanup...
  25.  
  26.  
  27.  
  28. " 1
  29. DISP -13 SF UPDIR
  30. '\Gt' PGDIR
  31.     \>>
  32.   $ROMID 4
  33.   $VISIBLE { }
  34.   $CONFIG
  35. "($CONFIG)
  36. ASSEMBLE
  37. 1STPROC   EQU #7067E
  38. 1STPROC_G EQU #807FC
  39. RPL
  40. ::
  41.  41 TestSysFlag ?SKIP
  42.  CODE
  43.   AD0EX
  44.   D0=(5) #00101 Contrast register
  45.   LC(2)  #7     HP def.=0B
  46.   DAT0=C B
  47.   D0=A
  48.   LOOP
  49.  ENDCODE
  50.  
  51.  ID ABRT
  52.  
  53.  ID GetSG
  54.   1STPROC
  55.   1STPROC_G
  56.  CODE
  57. start
  58.   LC(5)  15+(end)-(start)
  59.   A=A+C  A
  60.   CD0EX
  61.   RSTK=C
  62.   C=DAT1 A
  63.   D1=D1+ 5
  64.   D=D+1  A
  65.   CD0EX
  66.   DAT0=A A
  67.   C=RSTK
  68.   D0=C
  69.   LOOP
  70. end
  71.  ENDCODE
  72. ;"
  73.   GetSG
  74. "(GetSG)
  75. ::
  76.  'R'R
  77.  CODE
  78.   AD0EX
  79.   D0=(5)  14+(=INHARDROM?)
  80.   C=DAT0  B
  81.   AD0EX
  82.   ?CBIT=1 3
  83.   GOYES   ptl
  84. ptl
  85.   GOVLNG  =PushT/FLoop
  86.  ENDCODE
  87.  ?SWAP DROP
  88. ;"
  89.   ABRT
  90. "(ABRT)
  91. ::
  92.  ' ID NoCfg Sys@
  93.  NOT?SEMI
  94.  DUPTYPEREAL?
  95.  IT ONE{}N
  96.  DUPTYPELIST?
  97.  NOTcaseDROP
  98.  SWAPDUP
  99.  ZERO_DO
  100.   ISTOP-INDEX #2+
  101.   DUP#1+ ROLL
  102.   4PICKOVER UNCOERCE
  103.   EQUALPOSCOMP
  104.   #0=ITE
  105.   :: SWAP UNROLL
  106.   ;
  107.   :: TOSRRP DROP#1-
  108.   ;
  109.  LOOP
  110.  SWAPDROP
  111.  0 INDEXSTO
  112.  DUP#1+ ISTOPSTO
  113. ;"
  114.   INST
  115. "(INST)
  116. ASSEMBLE
  117. ONSRRP?   EQU #77C2
  118. ONSRRP?_G EQU #778D
  119. STOSF     EQU #1C731
  120. STOALM{}  EQU #E54D
  121. DELALM%   EQU #E724
  122. RPL
  123. ::
  124.  ::
  125.   DATE
  126.   TOD % .00004 %HMS+
  127.   '
  128.   ::
  129.    DELALM%
  130.    { %9600
  131.      %0 %1 %1 %1 %3
  132.    }
  133.    ' ID IOPAR
  134.    ?STO_HERE
  135.    %2 InitMenu%
  136.    HISTON UNDO_ON
  137.    ID GetSG
  138.     HXS 10 0FF0481900300803 (S)
  139.     HXS 10 0FF0000840300043 (G)
  140.    STOSF
  141.    1234
  142.    ID GetSG
  143.     ONSRRP?
  144.     ONSRRP?_G
  145.    EVAL NOT?SEMI
  146.    ' ROMPTR 4D2 F (4/5/7)
  147.    ROMPTR@
  148.    case COLA_EVAL
  149.   ;
  150.   THREE{}N
  151.   STOALM{} DROP
  152.  ;
  153.  ERRTRAP NOP
  154.  
  155.  CODE
  156.   D0=(5) (=StartupProc)+5
  157.   LOOP
  158.  ENDCODE
  159. ;"
  160. END
  161.